object dmProc: TdmProc
  OldCreateOrder = False
  Height = 479
  Width = 830
  object dsetTEK_MONTH: TIBCQuery
    Connection = dmOne.IBDBOne
    SQL.Strings = (
      'select LG.DAT,LG.BXOST, LG.NAHISL, LG.OPLATA,'
      
        '     LG.ISXOST, LG.NAH_POK, LG.KON_POK, LG.KOL_GAZ, LG.POK_USL, ' +
        'lg.dat_opl'
      '     from LIC_GOD LG where LG.NOM_ABON=:NOM'
      'union'
      ' select LG.DAT,LG.BXOST, LG.NAHISL, LG.OPLATA,'
      
        '     LG.ISXOST, LG.NAH_POK, LG.KONP, LG.KOL_GAZ, LG.POK_USL, lg.' +
        'dat_opl'
      '     from LICEV LG where LG.NOM_ABON=:NOM')
    Left = 8
    Top = 8
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'NOM'
      end
      item
        DataType = ftUnknown
        Name = 'NOM'
      end>
  end
  object dsTEK_MONTH: TIBCDataSource
    DataSet = dsetTEK_MONTH
    Left = 48
    Top = 8
  end
  object dsetBRON: TIBCQuery
    Connection = dmOne.IBDBOne
    SQL.Strings = (
      
        'select SUM(F.KOL_VYB) AS KOL_VYB  from F_BRON F where F.NOM_ABON' +
        '=:NOM'
      'AND :DAT between F.DAT_VYB AND F.DAT_PRIB')
    Left = 16
    Top = 280
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'NOM'
      end
      item
        DataType = ftUnknown
        Name = 'DAT'
      end>
  end
  object dsBRON: TIBCDataSource
    DataSet = dsetBRON
    Left = 52
    Top = 281
  end
  object dsetGEU: TIBCQuery
    SQLInsert.Strings = (
      'INSERT INTO SP_GEU'
      '  (KOD_GEU, NAI_GEU)'
      'VALUES'
      '  (:KOD_GEU, :NAI_GEU)')
    SQLDelete.Strings = (
      'DELETE FROM SP_GEU'
      'WHERE'
      '  KOD_GEU = :Old_KOD_GEU')
    SQLUpdate.Strings = (
      'UPDATE SP_GEU'
      'SET'
      '  KOD_GEU = :KOD_GEU, NAI_GEU = :NAI_GEU'
      'WHERE'
      '  KOD_GEU = :Old_KOD_GEU')
    SQLRefresh.Strings = (
      'SELECT KOD_GEU, NAI_GEU FROM SP_GEU'
      'WHERE'
      '  KOD_GEU = :KOD_GEU')
    SQLLock.Strings = (
      'SELECT NULL FROM SP_GEU'
      'WHERE'
      'KOD_GEU = :Old_KOD_GEU'
      'FOR UPDATE WITH LOCK')
    Connection = dmOne.IBDBOne
    SQL.Strings = (
      
        'select S.*,( S.KOD_GEU||'#39'   '#39'||S.NAI_GEU) AS NAI_GEU  from SP_GE' +
        'U S')
    Left = 11
    Top = 149
  end
  object dsGEU: TIBCDataSource
    DataSet = dsetGEU
    Left = 51
    Top = 149
  end
  object dsetKONTR: TIBCQuery
    Connection = dmOne.IBDBOne
    SQL.Strings = (
      'select S.KOD_KONTR, S.FIO_KONTR'
      'from SP_KONTR S')
    Left = 12
    Top = 193
  end
  object dsKONTR: TIBCDataSource
    DataSet = dsetKONTR
    Left = 53
    Top = 192
  end
  object dsetSPR: TIBCQuery
    Connection = dmOne.IBDBOne
    SQL.Strings = (
      'select &POLE_ONE, &POLE_TWO'
      'from &table')
    Left = 8
    Top = 56
    MacroData = <
      item
        Name = 'POLE_ONE'
      end
      item
        Name = 'POLE_TWO'
      end
      item
        Name = 'table'
      end>
  end
  object dsSPR: TIBCDataSource
    DataSet = dsetSPR
    Left = 48
    Top = 56
  end
  object dsetMNOGOET: TIBCQuery
    Connection = dmOne.IBDBOne
    SQL.Strings = (
      'select M.KOD_HC,M.NAIM_KOD from MNOGOETAG(:KOD_GEU)M')
    Left = 13
    Top = 236
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'KOD_GEU'
      end>
  end
  object dsMNOGOET: TIBCDataSource
    DataSet = dsetMNOGOET
    Left = 52
    Top = 236
  end
  object dsVID_GAZA: TIBCDataSource
    DataSet = dsetVID_GAZA
    Left = 51
    Top = 102
  end
  object dsetVID_GAZA: TIBCQuery
    Connection = dmOne.IBDBOne
    SQL.Strings = (
      'select K.KOD_HC, K.NAIM_KOD from KLSFCT K where K.KOD=6')
    Left = 10
    Top = 102
  end
  object dsetKOL_PRIB: TIBCQuery
    Connection = dmOne.IBDBOne
    SQL.Strings = (
      'select * from COUNT_PRIB(:NOM)')
    Left = 19
    Top = 333
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'NOM'
      end>
  end
  object dsKOL_PRIB: TIBCDataSource
    DataSet = dsetKOL_PRIB
    Left = 50
    Top = 333
  end
  object dsetVID_RASH: TIBCQuery
    Connection = dmOne.IBDBOne
    SQL.Strings = (
      'select K.KOD_HC, K.NAIM_KOD from KLSFCT K where K.KOD=1')
    Left = 19
    Top = 377
  end
  object dsVID_RASH: TIBCDataSource
    DataSet = dsetVID_RASH
    Left = 54
    Top = 377
  end
  object dsetTarif: TIBCQuery
    Connection = dmOne.IBDBOne
    SQL.Strings = (
      
        'select S.KOD_TARIF, (S.KOD_TARIF||'#39'  '#39'||S.NAIM_TF) AS NAIM_TF  f' +
        'rom SPISOK_TARIF(:VID_GAZA,:VID_RASH) S')
    Left = 124
    Top = 10
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'VID_GAZA'
      end
      item
        DataType = ftUnknown
        Name = 'VID_RASH'
      end>
  end
  object dsTarif: TIBCDataSource
    DataSet = dsetTarif
    Left = 158
    Top = 10
  end
  object dsetGOR_VOD: TIBCQuery
    Connection = dmOne.IBDBOne
    SQL.Strings = (
      'select K.KOD_HC, K.NAIM_KOD from KLSFCT K where K.KOD=14 &SQL')
    Left = 125
    Top = 60
    MacroData = <
      item
        Name = 'SQL'
      end>
  end
  object dsGOR_VOD: TIBCDataSource
    DataSet = dsetGOR_VOD
    Left = 159
    Top = 58
  end
  object dsetINF_OPLATA: TIBCQuery
    Connection = dmOne.IBDBOne
    SQL.Strings = (
      'select * from INF_OPLATA (:NOM)')
    Left = 126
    Top = 110
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'NOM'
      end>
  end
  object dsINF_OPLATA: TIBCDataSource
    DataSet = dsetINF_OPLATA
    Left = 160
    Top = 110
  end
  object dsNORM_TEK: TIBCDataSource
    DataSet = dsetNORM_TEK
    Left = 157
    Top = 162
  end
  object dsetNORM_TEK: TIBCQuery
    Connection = dmOne.IBDBOne
    SQL.Strings = (
      'select * from norma_gaz(:NOM,:DAT)')
    Left = 123
    Top = 159
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'NOM'
      end
      item
        DataType = ftUnknown
        Name = 'DAT'
      end>
  end
  object dsetOTKL_PRIB: TIBCQuery
    Connection = dmOne.IBDBOne
    SQL.Strings = (
      'select * from spisok_otkl_prib(:NOM)')
    Left = 120
    Top = 212
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'NOM'
      end>
  end
  object dsOTKL_PRIB: TIBCDataSource
    DataSet = dsetOTKL_PRIB
    Left = 152
    Top = 212
  end
  object dsSTAT_POV: TIBCDataSource
    DataSet = dsetSTAT_POV
    Left = 152
    Top = 257
  end
  object dsetSTAT_POV: TIBCQuery
    Connection = dmOne.IBDBOne
    SQL.Strings = (
      'select * from status_pov(:NOM)')
    Left = 119
    Top = 258
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'NOM'
      end>
  end
  object dsetCOUNTER: TIBCQuery
    Connection = dmOne.IBDBOne
    SQL.Strings = (
      
        'select S.KOD_SHT, SP.MARKA,SP.IZGOTOV,S.DAT_IZGOT, SP.RAST,SP.RA' +
        'ZRJD,'
      
        'SP.REZBA,S.MESTO,SP.MODEL,S.DATA_UST, S.ZAV_NOM, S.PLOMB,S.DAT_P' +
        'LOMB,'
      
        'S.KEM_PLOMB,S.POK_UST,S.KONPOK, S.POK_USL, S.DAT_POVR, S.DATA_ZA' +
        'M, S.NPOKZAM,'
      's.sch_obm_f, s.nah_pov, '
      
        '(select K.NAIM_KOD AS ISPOLN from KLSFCT K where K.KOD=24 and K.' +
        'KOD_HC=S.ISPOLN),'
      
        '(select K.NAIM_KOD AS N_MESTO from KLSFCT K where K.KOD=8 and K.' +
        'KOD_HC=s.mesto),'
      
        '(select sotr.fio as FIO_SOTR from spr_sotr sotr where sotr.kod=s' +
        '.kem_plomb),'
      
        '(select K.NAIM_KOD AS N_REZBA from KLSFCT K where K.KOD=9 and K.' +
        'KOD_HC=sp.rezba)'
      'from SHETHIK S,SP_SCHET SP'
      'where S.KOD_SHT=SP.KOD_SHT'
      'and S.NOM_ABON=:NOM'
      'and s.status='#39'+'#39)
    Left = 118
    Top = 308
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'NOM'
      end>
  end
  object dsCOUNTER: TIBCDataSource
    DataSet = dsetCOUNTER
    Left = 155
    Top = 306
  end
  object dsetF_PRIB: TIBCQuery
    Connection = dmOne.IBDBOne
    SQL.Strings = (
      'select F.KOD_PRIB, F.NAI_VIDPR, F.MARKA, F.MODEL,'
      
        ' F.ZAV_NOM, F.DATA_UST, F.STATUS, F.tip, f.kod_vid from F_PRIB(:' +
        'NOM) F')
    Left = 111
    Top = 357
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'NOM'
      end>
  end
  object dsF_PRIB: TIBCDataSource
    DataSet = dsetF_PRIB
    Left = 152
    Top = 354
  end
  object dsetMESTO: TIBCQuery
    Connection = dmOne.IBDBOne
    SQL.Strings = (
      'select K.KOD_HC, K.NAIM_KOD from KLSFCT K where K.KOD=8')
    Left = 17
    Top = 421
  end
  object dsMESTO: TIBCDataSource
    DataSet = dsetMESTO
    Left = 54
    Top = 421
  end
  object dsetTO: TIBCQuery
    Connection = dmOne.IBDBOne
    SQL.Strings = (
      'select K.KOD_HC, K.NAIM_KOD from KLSFCT K where K.KOD=13')
    Left = 218
    Top = 11
  end
  object dsTO: TIBCDataSource
    DataSet = dsetTO
    Left = 249
    Top = 10
  end
  object dsetISPOLN: TIBCQuery
    Connection = dmOne.IBDBOne
    SQL.Strings = (
      'select K.KOD_HC, K.NAIM_KOD from KLSFCT K where K.KOD=24')
    Left = 213
    Top = 61
  end
  object dsISPOLN: TIBCDataSource
    DataSet = dsetISPOLN
    Left = 250
    Top = 62
  end
  object dsetPRITH_OTKL: TIBCQuery
    Connection = dmOne.IBDBOne
    SQL.Strings = (
      'select k.naim_kod, k.kod_hc'
      'from klsfct k where k.kod=10')
    Left = 216
    Top = 112
  end
  object dsPRITH_OTKL: TIBCDataSource
    DataSet = dsetPRITH_OTKL
    Left = 248
    Top = 112
  end
  object dsetSPOSOB_OTKL: TIBCQuery
    Connection = dmOne.IBDBOne
    SQL.Strings = (
      'select k.naim_kod, k.kod_hc'
      'from klsfct k where k.kod=27')
    Left = 216
    Top = 160
  end
  object dsSPOSOB_OTKL: TIBCDataSource
    DataSet = dsetSPOSOB_OTKL
    Left = 248
    Top = 160
  end
  object dsetSOTR: TIBCQuery
    Connection = dmOne.IBDBOne
    SQL.Strings = (
      'select S.KOD, S.FIO from SPR_SOTR S')
    Left = 216
    Top = 208
  end
  object dsSOTR: TIBCDataSource
    DataSet = dsetSOTR
    Left = 248
    Top = 208
  end
  object dsetF_OTKL_PRIB: TIBCQuery
    Connection = dmOne.IBDBOne
    SQL.Strings = (
      'select * from OTKL_PRIB(:NOM)')
    Left = 216
    Top = 256
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'NOM'
      end>
  end
  object dsF_OTKL_PRIB: TIBCDataSource
    DataSet = dsetF_OTKL_PRIB
    Left = 248
    Top = 256
  end
  object dsetSPR_GILZI: TIBCQuery
    SQLInsert.Strings = (
      'INSERT INTO SPR_GILZI'
      
        '  (KOD, NOM_ABON, FIO, DAT_ROGD, TEL_MOB, TEL_RAB, SERIA, NOMER_' +
        'PASP, KEM_VIDAN, DATA_PASP)'
      'VALUES'
      
        '  (:KOD, :NOM_ABON, :FIO, :DAT_ROGD, :TEL_MOB, :TEL_RAB, :SERIA,' +
        ' :NOMER_PASP, :KEM_VIDAN, :DATA_PASP)')
    SQLDelete.Strings = (
      'DELETE FROM SPR_GILZI'
      'WHERE'
      '  KOD = :Old_KOD')
    SQLUpdate.Strings = (
      'UPDATE SPR_GILZI'
      'SET'
      
        '  KOD = :KOD, NOM_ABON = :NOM_ABON, FIO = :FIO, DAT_ROGD = :DAT_' +
        'ROGD, TEL_MOB = :TEL_MOB, TEL_RAB = :TEL_RAB, SERIA = :SERIA, NO' +
        'MER_PASP = :NOMER_PASP, KEM_VIDAN = :KEM_VIDAN, DATA_PASP = :DAT' +
        'A_PASP'
      'WHERE'
      '  KOD = :Old_KOD')
    SQLRefresh.Strings = (
      
        'SELECT KOD, NOM_ABON, FIO, DAT_ROGD, TEL_MOB, TEL_RAB, SERIA, NO' +
        'MER_PASP, KEM_VIDAN, DATA_PASP FROM SPR_GILZI'
      'WHERE'
      '  KOD = :KOD')
    SQLLock.Strings = (
      'SELECT NULL FROM SPR_GILZI'
      'WHERE'
      'KOD = :Old_KOD'
      'FOR UPDATE WITH LOCK')
    Connection = dmOne.IBDBOne
    SQL.Strings = (
      
        'select s.kod,s.nom_abon,s.fio, s.dat_rogd, s.tel_mob, s.tel_rab,' +
        ' s.seria,'
      
        's.nomer_pasp, s.kem_vidan, s.data_pasp from spr_gilzi s where s.' +
        'nom_abon=:NOM')
    Left = 215
    Top = 307
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'NOM'
      end>
  end
  object dsSPR_GILZI: TIBCDataSource
    DataSet = dsetSPR_GILZI
    Left = 249
    Top = 307
  end
  object dsetSPR_LG: TIBCQuery
    SQLInsert.Strings = (
      'INSERT INTO SP_LGOT'
      '  (PROC_LG, NAI_LG, KOD_LG, NAIM_POLN)'
      'VALUES'
      '  (:PROC_LG, :NAI_LG, :KOD_LG, :NAIM_POLN)')
    SQLDelete.Strings = (
      'DELETE FROM SP_LGOT'
      'WHERE'
      '  KOD_LG = :Old_KOD_LG')
    SQLUpdate.Strings = (
      'UPDATE SP_LGOT'
      'SET'
      
        '  PROC_LG = :PROC_LG, NAI_LG = :NAI_LG, KOD_LG = :KOD_LG, NAIM_P' +
        'OLN = :NAIM_POLN'
      'WHERE'
      '  KOD_LG = :Old_KOD_LG')
    SQLRefresh.Strings = (
      'SELECT PROC_LG, NAI_LG, KOD_LG, NAIM_POLN FROM SP_LGOT'
      'WHERE'
      '  KOD_LG = :KOD_LG')
    SQLLock.Strings = (
      'SELECT NULL FROM SP_LGOT'
      'WHERE'
      'KOD_LG = :Old_KOD_LG'
      'FOR UPDATE WITH LOCK')
    Connection = dmOne.IBDBOne
    SQL.Strings = (
      'select * from SP_LGOT')
    Left = 218
    Top = 354
  end
  object dsSPR_LG: TIBCDataSource
    DataSet = dsetSPR_LG
    Left = 249
    Top = 353
  end
  object dsetABON_LG: TIBCQuery
    SQLInsert.Strings = (
      'INSERT INTO LG_ABON'
      
        '  (UDOSTOV, NOM_ABON, FIO_LG, DAT_NATH, KOD_LG, DAT_KON, DAT_POD' +
        'TV, NORM_Z, NORM_L, STATUS, DAT, KOD_OP, SUM_LG, KOD_GILZA)'
      'VALUES'
      
        '  (:UDOSTOV, :NOM_ABON, :FIO_LG, :DAT_NATH, :KOD_LG, :DAT_KON, :' +
        'DAT_PODTV, :NORM_Z, :NORM_L, :STATUS, :DAT, :KOD_OP, :SUM_LG, :K' +
        'OD_GILZA)')
    SQLDelete.Strings = (
      'DELETE FROM LG_ABON'
      'WHERE'
      '  NOM_ABON = :Old_NOM_ABON AND UDOSTOV = :Old_UDOSTOV')
    SQLUpdate.Strings = (
      'UPDATE LG_ABON'
      'SET'
      
        '  UDOSTOV = :UDOSTOV, NOM_ABON = :NOM_ABON, FIO_LG = :FIO_LG, DA' +
        'T_NATH = :DAT_NATH, KOD_LG = :KOD_LG, DAT_KON = :DAT_KON, DAT_PO' +
        'DTV = :DAT_PODTV, NORM_Z = :NORM_Z, NORM_L = :NORM_L, STATUS = :' +
        'STATUS, DAT = :DAT, KOD_OP = :KOD_OP, SUM_LG = :SUM_LG, KOD_GILZ' +
        'A = :KOD_GILZA'
      'WHERE'
      '  NOM_ABON = :Old_NOM_ABON AND UDOSTOV = :Old_UDOSTOV')
    SQLRefresh.Strings = (
      
        'SELECT UDOSTOV, NOM_ABON, FIO_LG, DAT_NATH, KOD_LG, DAT_KON, DAT' +
        '_PODTV, NORM_Z, NORM_L, STATUS, DAT, KOD_OP, SUM_LG, KOD_GILZA F' +
        'ROM LG_ABON'
      'WHERE'
      '  NOM_ABON = :NOM_ABON AND UDOSTOV = :UDOSTOV')
    SQLLock.Strings = (
      'SELECT NULL FROM LG_ABON'
      'WHERE'
      'NOM_ABON = :Old_NOM_ABON AND UDOSTOV = :Old_UDOSTOV'
      'FOR UPDATE WITH LOCK')
    Connection = dmOne.IBDBOne
    SQL.Strings = (
      'select lg.*, sp.proc_lg, sp.nai_lg'
      'from lg_abon lg, sp_lgot sp'
      'where lg.status='#39'+'#39
      'and lg.kod_lg=sp.kod_lg'
      'and lg.nom_abon=:NOM')
    Left = 112
    Top = 400
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'NOM'
      end>
  end
  object dsABON_LG: TIBCDataSource
    DataSet = dsetABON_LG
    Left = 152
    Top = 400
  end
  object dsetPROSM_PER: TIBCQuery
    Connection = dmOne.IBDBOne
    SQL.Strings = (
      'select B.NOM_ABON, B.GOD, B.MES, B.SUM_PER,'
      '  B.KOD_TRF, B.KUB_POV,'
      
        ' (select K.NAIM_KOD from KLSFCT K where K.KOD=28 AND K.KOD_HC=B.' +
        'PR_PER) AS PR_PER,'
      '  B.DAT_WOD, B.KOD_OP,B.PRIM, B.PR_PER AS KOD_PR'
      '  from BTEX B where b.nom_abon=:NOM &SQL')
    Left = 305
    Top = 13
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'NOM'
      end>
    MacroData = <
      item
        Name = 'SQL'
      end>
  end
  object dsPROSM_PER: TIBCDataSource
    DataSet = dsetPROSM_PER
    Left = 336
    Top = 13
  end
  object dsetSPOSOB_SN: TIBCQuery
    Connection = dmOne.IBDBOne
    SQL.Strings = (
      'select K.KOD_HC, K.NAIM_KOD from KLSFCT K where K.KOD=25')
    Left = 298
    Top = 63
  end
  object dsSPOSOB_SN: TIBCDataSource
    DataSet = dsetSPOSOB_SN
    Left = 332
    Top = 62
  end
  object dsetNAIM_VOZD: TIBCQuery
    Connection = dmOne.IBDBOne
    SQL.Strings = (
      'select K.KOD_HC, K.NAIM_KOD from KLSFCT K where K.KOD=21')
    Left = 300
    Top = 105
  end
  object dsNAIM_VOZD: TIBCDataSource
    DataSet = dsetNAIM_VOZD
    Left = 331
    Top = 105
  end
  object dsetVID_VOZD: TIBCQuery
    Connection = dmOne.IBDBOne
    SQL.Strings = (
      'select K.KOD_HC, K.NAIM_KOD from KLSFCT K where K.KOD=22')
    Left = 298
    Top = 152
  end
  object dsVID_VOZD: TIBCDataSource
    DataSet = dsetVID_VOZD
    Left = 330
    Top = 153
  end
  object dsetPROSM_POV: TIBCQuery
    Connection = dmOne.IBDBOne
    SQL.Strings = (
      'select p.*,'
      
        '(select sp.marka from sp_schet sp where sp.kod_sht=p.kod_sch) as' +
        ' MARKA,'
      
        '(select sp.model from sp_schet sp where sp.kod_sht=p.kod_sch) as' +
        ' MODEL,'
      
        '(select sp.marka from sp_schet sp where sp.kod_sht=p.kod_sch_obm' +
        ') as MARKA_OBM,'
      
        '(select sp.model from sp_schet sp where sp.kod_sht=p.kod_sch_obm' +
        ') as MODEL_OBM,'
      
        '(select k.naim_kod  from klsfct k where k.kod=34 and k.kod_hc=p.' +
        'VID_POV) as N_VID_POV'
      ',(select l.pok_usl from licev l where l.nom_abon=p.nom_abon)'
      'from poverka p &SQL')
    Left = 296
    Top = 200
    MacroData = <
      item
        Name = 'SQL'
      end>
  end
  object dsPROSM_POV: TIBCDataSource
    DataSet = dsetPROSM_POV
    Left = 328
    Top = 200
  end
  object dsetVID_BRON: TIBCQuery
    Connection = dmOne.IBDBOne
    SQL.Strings = (
      
        'select K.KOD_HC, K.NAIM_KOD from KLSFCT K where K.KOD=26 and k.k' +
        'od_hc!=2 and k.kod_hc!=3')
    Left = 297
    Top = 247
  end
  object dsVID_BRON: TIBCDataSource
    DataSet = dsetVID_BRON
    Left = 331
    Top = 247
  end
  object dsetPROV_NA_LG: TIBCQuery
    Connection = dmOne.IBDBOne
    SQL.Strings = (
      'select COUNT(*) as KOL from lg_abon lg, spr_gilzi SP'
      'where lg.fio_lg=sp.fio'
      'and lg.nom_abon=:NOM'
      'and sp.kod=:KOD_GILZA')
    Left = 298
    Top = 289
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'NOM'
      end
      item
        DataType = ftUnknown
        Name = 'KOD_GILZA'
      end>
  end
  object dsPROV_NA_LG: TIBCDataSource
    DataSet = dsetPROV_NA_LG
    Left = 326
    Top = 289
  end
  object dsetEdIzm: TIBCQuery
    Connection = dmOne.IBDBOne
    SQL.Strings = (
      'select KOD_IZM,NAI_IZM from SP_IZM')
    Left = 296
    Top = 336
  end
  object dsEdIzm: TIBCDataSource
    DataSet = dsetEdIzm
    Left = 328
    Top = 336
  end
  object dsetSPR_HAR_JOB: TIBCQuery
    SQLInsert.Strings = (
      'INSERT INTO SPR_TIP_JOB'
      '  (KOD, NAIN, JOB_VID)'
      'VALUES'
      '  (:KOD, :NAIN, :JOB_VID)')
    SQLDelete.Strings = (
      'DELETE FROM SPR_TIP_JOB'
      'WHERE'
      '  KOD = :Old_KOD')
    SQLUpdate.Strings = (
      'UPDATE SPR_TIP_JOB'
      'SET'
      '  KOD = :KOD, NAIN = :NAIN, JOB_VID = :JOB_VID'
      'WHERE'
      '  KOD = :Old_KOD')
    SQLRefresh.Strings = (
      'SELECT KOD, NAIN, JOB_VID FROM SPR_TIP_JOB'
      'WHERE'
      '  KOD = :KOD')
    SQLLock.Strings = (
      'SELECT NULL FROM SPR_TIP_JOB'
      'WHERE'
      'KOD = :Old_KOD'
      'FOR UPDATE WITH LOCK')
    Connection = dmOne.IBDBOne
    SQL.Strings = (
      'select STJ.*, SVJ.NAIM AS VID_JOB'
      'from  SPR_TIP_JOB STJ,SPR_VID_JOB SVJ'
      'where STJ.KOD!=0'
      'AND STJ.JOB_VID=SVJ.KOD')
    Left = 298
    Top = 378
  end
  object dsSPR_HAR_JOB: TIBCDataSource
    DataSet = dsetSPR_HAR_JOB
    Left = 330
    Top = 377
  end
  object dsetVID_JOB: TIBCQuery
    Connection = dmOne.IBDBOne
    SQL.Strings = (
      'select S.KOD, S.NAIM from SPR_VID_JOB S')
    Left = 215
    Top = 403
  end
  object dsVID_JOB: TIBCDataSource
    DataSet = dsetVID_JOB
    Left = 249
    Top = 404
  end
  object dsSPR_JOB: TIBCDataSource
    DataSet = dsetSPR_JOB
    Left = 421
    Top = 13
  end
  object dsetSPR_JOB: TIBCQuery
    SQLInsert.Strings = (
      'INSERT INTO SPR_JOB'
      '  (KOD, NAIM, TIP_JOB)'
      'VALUES'
      '  (:KOD, :NAIM, :TIP_JOB)')
    SQLDelete.Strings = (
      'DELETE FROM SPR_JOB'
      'WHERE'
      '  KOD = :Old_KOD')
    SQLUpdate.Strings = (
      'UPDATE SPR_JOB'
      'SET'
      '  KOD = :KOD, NAIM = :NAIM, TIP_JOB = :TIP_JOB'
      'WHERE'
      '  KOD = :Old_KOD')
    SQLRefresh.Strings = (
      'SELECT KOD, NAIM, TIP_JOB FROM SPR_JOB'
      'WHERE'
      '  KOD = :KOD')
    SQLLock.Strings = (
      'SELECT NULL FROM SPR_JOB'
      'WHERE'
      'KOD = :Old_KOD'
      'FOR UPDATE WITH LOCK')
    Connection = dmOne.IBDBOne
    SQL.Strings = (
      'select S.*, STJ.NAIN AS HAR_JOB'
      'from SPR_JOB S, SPR_TIP_JOB STJ'
      'where S.TIP_JOB=STJ.KOD')
    Left = 384
    Top = 13
  end
  object dsetSOTR_VDGO: TIBCQuery
    SQLInsert.Strings = (
      'INSERT INTO SPR_SOTR_VDGO'
      '  (KOD, FIO, DOLGN, FIO_POLN, RAZRIAD, ADRES, PHONES, VID_JOB)'
      'VALUES'
      
        '  (:KOD, :FIO, :DOLGN, :FIO_POLN, :RAZRIAD, :ADRES, :PHONES, :VI' +
        'D_JOB)')
    SQLDelete.Strings = (
      'DELETE FROM SPR_SOTR_VDGO'
      'WHERE'
      '  KOD = :Old_KOD')
    SQLUpdate.Strings = (
      'UPDATE SPR_SOTR_VDGO'
      'SET'
      
        '  KOD = :KOD, FIO = :FIO, DOLGN = :DOLGN, FIO_POLN = :FIO_POLN, ' +
        'RAZRIAD = :RAZRIAD, ADRES = :ADRES, PHONES = :PHONES, VID_JOB = ' +
        ':VID_JOB'
      'WHERE'
      '  KOD = :Old_KOD')
    SQLRefresh.Strings = (
      
        'SELECT KOD, FIO, DOLGN, FIO_POLN, RAZRIAD, ADRES, PHONES, VID_JO' +
        'B FROM SPR_SOTR_VDGO'
      'WHERE'
      '  KOD = :KOD')
    SQLLock.Strings = (
      'SELECT NULL FROM SPR_SOTR_VDGO'
      'WHERE'
      'KOD = :Old_KOD'
      'FOR UPDATE WITH LOCK')
    Connection = dmOne.IBDBOne
    SQL.Strings = (
      
        'select S.KOD, S.FIO, S.FIO_POLN, S.DOLGN,  S.RAZRIAD, S.ADRES, S' +
        '.PHONES, SVJ.NAIM AS NAIM_VID_JOB, SSD.NAIM AS NAIM_DOLGN, S.VID' +
        '_JOB'
      'from SPR_SOTR_VDGO S, SPR_VID_JOB SVJ, SPR_SOTR_DOLGN SSD'
      'where S.VID_JOB=SVJ.KOD'
      'AND S.DOLGN=SSD.KOD')
    Left = 387
    Top = 62
  end
  object dsSOTR_VDGO: TIBCDataSource
    DataSet = dsetSOTR_VDGO
    Left = 418
    Top = 61
  end
  object dsetDOLGN: TIBCQuery
    SQLInsert.Strings = (
      'INSERT INTO SPR_SOTR_DOLGN'
      '  (KOD, NAIM)'
      'VALUES'
      '  (:KOD, :NAIM)')
    SQLDelete.Strings = (
      'DELETE FROM SPR_SOTR_DOLGN'
      'WHERE'
      '  KOD = :Old_KOD')
    SQLUpdate.Strings = (
      'UPDATE SPR_SOTR_DOLGN'
      'SET'
      '  KOD = :KOD, NAIM = :NAIM'
      'WHERE'
      '  KOD = :Old_KOD')
    SQLRefresh.Strings = (
      'SELECT KOD, NAIM FROM SPR_SOTR_DOLGN'
      'WHERE'
      '  KOD = :KOD')
    SQLLock.Strings = (
      'SELECT NULL FROM SPR_SOTR_DOLGN'
      'WHERE'
      'KOD = :Old_KOD'
      'FOR UPDATE WITH LOCK')
    Connection = dmOne.IBDBOne
    SQL.Strings = (
      'select * from SPR_SOTR_DOLGN')
    Left = 384
    Top = 96
  end
  object dsDOLGN: TIBCDataSource
    DataSet = dsetDOLGN
    Left = 416
    Top = 96
  end
  object dsetPROSM_LIC: TIBCQuery
    Connection = dmOne.IBDBOne
    SQL.Strings = (
      'select SA.NOM_ABON, SA.FIO, SA.DATADOG,'
      '       SA.D_SVER, SA.TELMOBIL, SA.TELDOM, SA.KOL_JIL,SA.KOL_LGJ,'
      
        '       SA.KOD_GAZ, (SP.NAI_PUNKT||'#39' '#39'||VU.NAI_VU||SU.NAI_UL||'#39' '#1076 +
        #1086#1084' '#8470#39'||SA.DOM||coalesce(SA.DOM2,'#39#39')||'#39' '#1082#1074' '#8470#39'|| coalesce(SA.KB,'#39#39 +
        ')) AS ADRES, SA.KB2,SA.KWMETR,'
      
        '       SA.NORM_L,SA.NORM_Z, SG.NAI_GEU, SG.KOD_GEU, SK.FIO_KONTR' +
        ', SA.MNOGOETG, SA.KOD_TRF,'
      
        '       SA.PR_GW,l.bxost,l.pok_usl, l.dat,l.nah_pok,l.konp, l.kol' +
        '_gaz,l.dat_opl,'
      
        '       (select K.NAIM_KOD from KLSFCT K where K.KOD=1 and K.KOD_' +
        'HC=SA.priz) as VID_RASH,'
      
        '       (select st.nai_trf from sp_tarif st where st.kod_trf=sa.k' +
        'od_trf and st.dat='
      '       (select MAX(st.dat) from sp_tarif st)) as NAIM_TARIF,'
      
        '       (select s.zav_nom from shethik s where s.nom_abon=:NOM an' +
        'd s.status='#39'+'#39') as ZAV_NOM,'
      
        '       (select s.data_ust from shethik s where s.nom_abon=:NOM a' +
        'nd s.status='#39'+'#39') as DATA_UST, sa.priz'
      
        '       from SPR_ABON SA, SP_PUNKT SP, SP_UL SU, SP_VU VU, SP_GEU' +
        ' SG,SP_KONTR SK, LICEV L'
      '       where SA.NOM_ABON=:NOM'
      '       AND SA.KOD_PUNKT=SP.KOD_PUNKT'
      '       AND SA.KOD_UL=SU.KOD_UL'
      '       AND SA.KOD_VU=VU.KOD_VU'
      '       AND SA.KOD_GEU=SG.KOD_GEU'
      '       AND SA.KMASTER=SK.KOD_KONTR'
      '       AND SA.nom_abon=L.nom_abon')
    Left = 384
    Top = 146
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'NOM'
      end
      item
        DataType = ftUnknown
        Name = 'NOM'
      end
      item
        DataType = ftUnknown
        Name = 'NOM'
      end>
  end
  object dsPROSM_LIC: TIBCDataSource
    DataSet = dsetPROSM_LIC
    Left = 418
    Top = 146
  end
  object dsetPROV_GILZI: TIBCQuery
    Connection = dmOne.IBDBOne
    SQL.Strings = (
      'select COUNT(*) as KOL'
      'from spr_gilzi sp'
      'where sp.fio =:FIO')
    Left = 382
    Top = 191
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'FIO'
      end>
  end
  object dsPROV_GILZI: TIBCDataSource
    DataSet = dsetPROV_GILZI
    Left = 415
    Top = 190
  end
  object dsetTIP_JOB: TIBCQuery
    Connection = dmOne.IBDBOne
    SQL.Strings = (
      'select S.KOD, S.NAIN, S.JOB_VID from SPR_TIP_JOB S')
    Left = 384
    Top = 232
  end
  object dsTIP_JOB: TIBCDataSource
    DataSet = dsetTIP_JOB
    Left = 416
    Top = 232
  end
  object dsetSTATUS_ZAYVKI: TIBCQuery
    Connection = dmOne.IBDBOne
    SQL.Strings = (
      'select k.kod_hc,K.NAIM_KOD  from KLSFCT K where K.KOD=18')
    Left = 384
    Top = 280
  end
  object dsSTATUS_ZAYVKI: TIBCDataSource
    DataSet = dsetSTATUS_ZAYVKI
    Left = 416
    Top = 280
  end
  object dsetOTOP_PERIOD: TIBCQuery
    Connection = dmOne.IBDBOne
    SQL.Strings = (
      'select o.dat_nath, o.dat_kon, o.mes_nath, o.mes_kon'
      'from otop_period o')
    Left = 387
    Top = 334
  end
  object dsOTOP_PERIOD: TIBCDataSource
    DataSet = dsetOTOP_PERIOD
    Left = 423
    Top = 334
  end
  object dsetZAP_POK_CSH: TIBCQuery
    Connection = dmOne.IBDBOne
    SQL.Strings = (
      
        'execute block (NOM_ABON integer = :NOM_ABON,NATH_POK integer=:NA' +
        'TH_POK,KON_POK integer=:KON_POK,'
      
        'KOL_GAZ integer=:KOL_GAZ,KOD_OP integer=:KOD_OP,DAT_WOD date=:DA' +
        'T_WOD,MES char(2)=:MES,GOD char(4)=:GOD)'
      'as'
      'declare variable TARIF integer;'
      'declare variable SUM_N decimal(15,2);'
      'declare variable SUM_ITOG decimal(15,2);'
      'declare variable SUM_LG decimal(15,2);'
      'declare variable CENA1 decimal(9,2);'
      'declare variable CENA2 decimal(9,2);'
      'declare variable DEN_IZM integer;'
      'declare variable KOL_JIL integer;'
      'declare variable KOL_LG integer;'
      'declare variable KWMETR integer;'
      'declare variable KOD_GAZ integer;'
      'declare variable PROC integer;'
      'begin'
      '--'#1079#1072#1087#1080#1089#1099#1074#1072#1077#1084' '#1074' '#1083#1080#1094#1077#1074#1086#1081
      
        'update LICEV L set L.konp=:kon_pok, L.KOL_GAZ=:KOL_GAZ,L.KOD_OP=' +
        ':KOD_OP,L.DAT_WOD=:DAT_WOD'
      'where L.NOM_ABON=:NOM_ABON;'
      '--'#1079#1072#1087#1080#1089#1099#1074#1072#1077#1084' '#1074' SCHETHIK'
      
        'update shethik s set s.konpok=:KON_POK, s.dat_wod=:dat_wod, s.ko' +
        'd_op=:KOD_OP where s.nom_abon=:nom_abon;'
      '--'#1090#1077#1087#1077#1088#1100' '#1085#1091#1078#1085#1086' '#1088#1072#1089#1089#1095#1080#1090#1072#1090#1100' '#1089#1091#1084#1084#1091' '#1085#1072#1095#1080#1089#1083#1077#1085#1080#1077' '#1085#1072' '#1076#1072#1085#1085#1099#1081' '#1088#1072#1089#1093#1086#1076' '#1075#1072#1079#1072
      
        'select R.tarif,(R.summa1+R.summa2) as SUM_N, r.summa_itog, (R.su' +
        'mma_lg1+R.summa_lg2) as SUM_LG,'
      
        'R.cena1, R.cena2, R.den_izm,R.kol_jil, R.kol_lg, s.kwmetr,s.kod_' +
        'gaz,R.proc'
      'from rash_po_shc(:nom_abon,:GOD,:MES,:kol_gaz,0) R, spr_abon s'
      'where s.nom_abon=:nom_abon'
      
        'into :TARIF,:SUM_N,:SUM_ITOG,:SUM_LG,:CENA1,:CENA2,:DEN_IZM,:KOL' +
        '_JIL,:KOL_LG,:KWMETR,:kod_gaz,:proc;'
      '--'#1079#1072#1087#1080#1096#1077#1084' '#1074' B_NATH'
      
        '--execute procedure ZAP_NATH(:nom_abon,:god,:MES,:tarif,0,0,0,0,' +
        '1,:sum_n,:sum_itog,:sum_lg,:cena1,:cena2,'
      
        '--:den_izm,0,0,:kol_jil,:kol_lg,:kol_gaz,:PROC,:kwmetr,:kod_op,:' +
        'nath_pok,:kon_pok,:kod_gaz,0);'
      
        'execute procedure ZAP_NATH(:NOM_ABON,:GOD,:MES,:TARIF,0,0,0,0,1,' +
        ':SUM_N,:sum_itog,:SUM_LG,'
      
        '  :CENA1,:CENA2,:DEN_IZM,0,0,:KOL_JIL,:KOL_LG,:KOD_GAZ,:PROC,:KW' +
        'METR,:KOD_OP,:NATH_POK,:KON_POK,:KOL_GAZ,0);'
      '  suspend;'
      'end')
    Left = 384
    Top = 376
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'NOM_ABON'
      end
      item
        DataType = ftUnknown
        Name = 'NATH_POK'
      end
      item
        DataType = ftUnknown
        Name = 'KON_POK'
      end
      item
        DataType = ftUnknown
        Name = 'KOL_GAZ'
      end
      item
        DataType = ftUnknown
        Name = 'KOD_OP'
      end
      item
        DataType = ftUnknown
        Name = 'DAT_WOD'
      end
      item
        DataType = ftUnknown
        Name = 'MES'
      end
      item
        DataType = ftUnknown
        Name = 'GOD'
      end>
  end
  object dsZAP_POK_CSH: TIBCDataSource
    DataSet = dsetZAP_POK_CSH
    Left = 424
    Top = 376
  end
  object dsetPRITH_PERESH: TIBCQuery
    Connection = dmOne.IBDBOne
    SQL.Strings = (
      'select K.KOD_HC,K.NAIM_KOD from KLSFCT K where K.KOD=28')
    Left = 368
    Top = 16
  end
  object dsPRITH_PERESH: TIBCDataSource
    DataSet = dsetPRITH_PERESH
    Left = 400
    Top = 16
  end
  object dsetMARKA: TIBCQuery
    Connection = dmOne.IBDBOne
    SQL.Strings = (
      'select distinct s.marka'
      'from &Table s')
    Left = 298
    Top = 420
    MacroData = <
      item
        Name = 'Table'
      end>
  end
  object dsMARKA: TIBCDataSource
    DataSet = dsetMARKA
    Left = 328
    Top = 419
  end
  object dsetMODEL: TIBCQuery
    Connection = dmOne.IBDBOne
    SQL.Strings = (
      'select s.model'
      'from &Table s'
      'where s.marka=:MARKA')
    Left = 386
    Top = 421
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'MARKA'
      end>
    MacroData = <
      item
        Name = 'Table'
      end>
  end
  object dsMODEL: TIBCDataSource
    DataSet = dsetMODEL
    Left = 416
    Top = 421
  end
  object dsetRASH_PO_SCH: TIBCQuery
    Connection = dmOne.IBDBOne
    SQL.Strings = (
      'select * from rash_po_shc(:NOM,:GOD,:MES,:V1,:V2) R')
    Left = 464
    Top = 16
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'NOM'
      end
      item
        DataType = ftUnknown
        Name = 'GOD'
      end
      item
        DataType = ftUnknown
        Name = 'MES'
      end
      item
        DataType = ftUnknown
        Name = 'V1'
      end
      item
        DataType = ftUnknown
        Name = 'V2'
      end>
  end
  object dsRASH_PO_SCH: TIBCDataSource
    DataSet = dsetRASH_PO_SCH
    Left = 496
    Top = 16
  end
  object dsetOTKL_SCH: TIBCQuery
    Connection = dmOne.IBDBOne
    SQL.Strings = (
      
        'execute block (NOM integer=:NOM,POK_NATH integer=:POK_NATH,POK_K' +
        'ON integer=:POK_KON,'
      
        'DAT date=:DAT,PRITH integer=:PRITN,KOD_OP integer=:KOD_OP,SOTR i' +
        'nteger=:SOTR,'
      'PRITH_ZAM integer=:PRITH_ZAM,DAT_ZAM Date=:DAT_ZAM)'
      'as'
      'declare variable MES char(2);'
      'declare variable GOD char(4);'
      'declare variable SUM_N decimal(15,2);'
      'declare variable SUM_ITOG decimal(15,2);'
      'declare variable SUM_LG decimal(15,2);'
      'declare variable PROC integer;'
      'declare variable DEN_IZM integer;'
      'declare variable TARIF integer;'
      'declare variable CENA1 decimal(15,2);'
      'declare variable CENA2 decimal(15,2);'
      'declare variable DAT_WOD date;'
      'declare variable ZAV_NOM char(15);'
      'declare variable KOD_PRIB integer;'
      'declare variable KOL_JIL integer;'
      'declare variable KOL_LG integer;'
      'declare variable VID_GAZA integer;'
      'declare variable KOL_GAZ integer;'
      'begin'
      '--NOM=56; KOL_GAZ=10; DAT='#39'12.07.2012'#39'; PRITH=5;'
      'MES=EXTRACT (MONTH FROM DAT);'
      'GOD=EXTRACT (YEAR FROM DAT);'
      'if (MES<10) then begin'
      'MES='#39'0'#39'||MES;'
      'SELECT CURRENT_DATE FROM RDB$DATABASE into :dat_wod;'
      'end'
      'KOL_GAZ=POK_KON-pok_nath;'
      '--'#1074#1099#1087#1086#1083#1085#1103#1077#1084' '#1088#1072#1089#1095#1077#1090' '#1088#1072#1089#1095#1077#1090
      
        'select (R.summa1+R.summa2) as SUM_N, R.summa_itog, (R.summa_lg1+' +
        'R.summa_lg2) as SUM_LG, R.proc, R.den_izm, R.tarif,'
      'r.cena1, r.cena2,r.kol_jil,r.kol_lg,r.vid_gaz'
      'from rash_po_shc(:NOM,:GOD,:MES,:kol_gaz,0) R'
      
        'into :sum_n,:sum_itog,:sum_lg,:proc,:den_izm,:tarif,:cena1,:cena' +
        '2,:kol_jil,:kol_lg,:vid_gaza;'
      '--'#1079#1072#1087#1080#1089#1100' '#1085#1072#1095#1080#1089#1083#1077#1085#1080#1081
      
        'execute procedure ZAP_NATH(:NOM,:GOD,:MES,:TARIF,0,0,0,0,1,:SUM_' +
        'N,:sum_itog,:SUM_LG,:CENA1,:CENA2,'
      
        ':den_izm,0,0,:KOL_JIL,:KOL_LG,:VID_GAZA,:PROC,0,:KOD_OP,:pok_nat' +
        'h,:pok_kon,:KOL_GAZ,0);'
      '--'#1077#1089#1083#1080' '#1087#1088#1080#1095#1080#1085#1072' '#1086#1090#1082#1083#1102#1095#1077#1085#1080#1103' - '#1079#1072#1084#1077#1085#1072' '#1089#1095#1077#1090#1095#1080#1082#1072
      'if (prith=5) then begin'
      
        'select s.kod_sht, s.zav_nom from shethik s where s.nom_abon=:NOM' +
        ' and s.data_ust=(select MAX(s.data_ust)'
      'from shethik s where s.nom_abon=:NOM) and s.status='#39'-'#39
      'into :kod_prib,:zav_nom;'
      ''
      
        'insert into F_ZAMEN(NOM_ABON,KOD_SHT_OLD,NOM_ZAV_OLD,POK_SNJT,KO' +
        'D_OP,DAT_WOD,SOTR,PRITH_ZAMEN,DAT_ZAM) values'
      
        '(:nom,:kod_prib,:zav_nom,:pok_kon,:kod_op,:dat_wod,:SOTR,:PRITH_' +
        'ZAM,:DAT_ZAM);'
      'end'
      'suspend;'
      'end')
    Left = 464
    Top = 64
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'NOM'
      end
      item
        DataType = ftUnknown
        Name = 'POK_NATH'
      end
      item
        DataType = ftUnknown
        Name = 'POK_KON'
      end
      item
        DataType = ftUnknown
        Name = 'DAT'
      end
      item
        DataType = ftUnknown
        Name = 'PRITN'
      end
      item
        DataType = ftUnknown
        Name = 'KOD_OP'
      end
      item
        DataType = ftUnknown
        Name = 'SOTR'
      end
      item
        DataType = ftUnknown
        Name = 'PRITH_ZAM'
      end
      item
        DataType = ftUnknown
        Name = 'DAT_ZAM'
      end>
  end
  object dsOTKL_SCH: TIBCDataSource
    DataSet = dsetOTKL_SCH
    Left = 496
    Top = 64
  end
  object dsetZAP_POK_LIC: TIBCQuery
    Connection = dmOne.IBDBOne
    SQL.Strings = (
      'execute block (NOM integer=:NOM,POK_SCH integer=:POK_SCH)'
      'as'
      'begin'
      
        'update licev l set l.nah_pok=:pok_sch, l.konp=:pok_sch, l.pok_us' +
        'l=:pok_sch where l.nom_abon=:NOM;'
      
        'update shethik s set s.pok_ust=:pok_sch, s.npok=:pok_sch, s.konp' +
        'ok=:pok_sch where s.nom_abon=:nom;'
      'suspend;'
      'end')
    Left = 464
    Top = 112
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'NOM'
      end
      item
        DataType = ftUnknown
        Name = 'POK_SCH'
      end>
  end
  object dsZAP_POK_LIC: TIBCDataSource
    DataSet = dsetZAP_POK_LIC
    Left = 496
    Top = 112
  end
end
